TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/M-More Monthly Disks/(c)mb.d64/daysofourlife.c

Commodore BASIC | 2007-02-04 | 4KB | 206 lines

1 REM
2 REM       ORIGIN UNKNOWN
3 REM    MODIFIED BY BRIAN WALKER
4 REM        JANUARY 1984
5 REM
6 GOSUB 165
7 GOSUB 179
8 PRINT"[147]ENTER TODAY'S DATE (30,12,1983)
9 [133]"DAY   ";D1
10 [139] D1 [177]31 [167] [153]"THERE ARE ONLY 31 DAYS" : [137] 9
11 [133]"MONTH ";M1
12 [139] M1 [177]12 [167] [153]"THERE ARE ONLY 12 MONTHS" : [137] 11
13 [133]"YEAR  ";Y1
14 [150] [165]A(A)[178][181](A[173]4)
15 [150] [165]A(A)[178][181](A[173]4)
16 [134] T(12)
17 [150] [165]B(A)[178][181](A[173]7)
18 [129] I [178] 1 [164] 12
19 [135] T(I)
20 [130] I
21 [153]"ENTER DAY OF INTEREST (20,8,1983)
22 INPUT"DAY:  ";D
23 INPUT"MONTH:";M
24 INPUT"YEAR: ";Y
25 PRINT
26 FOR X=1TO 1000:NEXTX
27 PRINT"[147]"
28 LET I1 = INT((Y-1500)/100)
29 IF Y-1582 <0 THEN 138
30 LET A = I1*5+(I1+3)/4
31 LET I2=INT(A-FNB(A)*7)
32 LET Y2 = INT(Y/100)
33 LET Y3= INT(Y-Y2*100)
34 LET A= Y3/4+Y3+D+T(M)+I2
35 LET B= INT(A-FNB(A)*7)+1
36 IF M>2 THEN 47
37 IF Y3 = 0 THEN 44
38 LET T1=INT(Y-FNA(Y)*4)
39 IF T1 <> 0 THEN 42
40 IF B<>0 THEN 42
41 B=6
42 B=B-1
43 GOTO 47
44 A=I1-1
45 T1=INT(A-FNA(A)*4)
46 IF T1=0 THEN 40
47 IF B<>0 THEN 49
48 B=7
49 IF (Y1*12+M1)*31+D1 < (Y*12+M)*31+D THEN 55
50 IF (Y1*12+M1)*31+D1 = (Y*12+M)*31+D THEN 53
51 PRINT M;"/";D;"/";Y;"WAS A ";
52 GOTO 57
53 PRINT M;"/";D;"/";Y;"IS A ";
54 GOTO 57
55 PRINT M;"/";D;"/";Y;"WILL BE A ";
56 REM PRINT THE DAY OF THE WEEK THE DATE FALLS ON.
57 IF B <>1 THEN 59
58 PRINT"SUNDAY"
59 IF B <>2 THEN 61
60 PRINT"MONDAY"
61 IF B <>3 THEN 63
62 PRINT"TUESDAY"
63 IF B <>4 THEN 65
64 PRINT"WEDNESDAY"
65 IF B <>5 THEN 67
66 PRINT"THURSDAY"
67 IF B <>6 THEN 69
68 GOTO 133
69 IF B <>7 THEN 71
70 PRINT"SATURDAY
71 [139] (Y1[172]12[170]M1)[172]31[170]D1 [178] (Y[172]12[170]M)[172]31[170]D [167] 123
72 I5[178]Y1[171]Y
73 [153]
74 I6[178]M1[171]M
75 I7[178]D1[171]D
76 [139] I7 [177][178] 0 [167] 79
77 I6[178]I6[171]1
78 I7[178]I7[170]30
79 [139] I6 [177][178] 0 [167] 82
80 I5[178]I5[171]1
81 I6[178]I6[170]12
82 [139] I5 [179] 0 [167] 139
83 [139] I7 [179][177] 0 [167] 86
84 [139] I6 [179][177] 0 [167] 86
85 [153]"LOAD"
86 :
87 [153]"YOUR AGE IF BIRTHDATE "
88 [153]I5;"YEARS";I6;"MONTHS";I7;"DAYS"
89 [153]
90 A8 [178] (I5[172]365)[170](I6[172]30)[170]I7[170][181](I6[173]2)
91 K5[178]I5
92 K6[178]I6
93 K7[178]I7
94 [143] CALCULATE RETIREMENT DATE
95 E[178]Y[170]65
96 [143] CALCULATE TIME SPENT IN THE FOLLOWING FUNCTIONS
97 F[178].35
98 [153]"YOU HAVE SLEPTCLOSEFOR A TOTAL OF: "
99 [141] 141
100 [153]
101 F[178].17
102 [153]"YOU HAVE EATEN FOR A TOTAL OF : "
103 [141] 141
104 [153]
105 F[178].18
106 [139] K5 [177] 3 [167] 111
107 [153]"YOU HAVE PLAYED FOR A TOTAL OF : "
108 [137] 117
109 [153]
110 F[178].25
111 [143]   IF K5 > 9 THEN 1070
112 [153]"YOU HAVE STUDIED FOR A TOTAL OF : "
113 [137] 117
114 F[178].26
115 [153]
116 [153]"YOU HAVE WORKED FOR A TOTAL OF : "
117 [141] 141
118 [153]
119 [153]"YOU HAVE RELAXED FOR A TOTAL OF : "
120 [153]K5;"YEARS";K6;"MONTHS";K7;"DAYS"
121 [153]
122 [153]"YOU MAY RETIRE IN THE YEAR:";E
123 [153]:[153]"    HIT A KEY TO CONTINUEWAIT"
124 [161] A$ : [139] A$[178]"" [167] 124
125 [137] 7
126 :
127 [143] *+*+*+*+*+*+*+*+*+*+*+*+*+*+*
128 :
129 [143]          END
130 :
131 [143] *+*+*+*+*+*+*+*+*+*+*+*+*+*+*
132 [128]
133 [139] D[178]13 [167] 136
134 [153]"FRIDAY"
135 [137] 71
136 [153]"FRIDAY THE THIRTEENTH -- BEWARE"
137 [137] 71
138 [153]"CANNOT GIVE ANY INFORMATION PROIR TO:   1582": [129]X[178]1[164]1000:[130]X
139 [137] 7
140 [131] 0,3,3,6,1,4,6,2,5,0,3,5
141 K1[178][181](F[172]A8)
142 I5[178][181](K1[173]365)
143 K1[178]K1[171](I5[172]365)
144 I6[178][181](K1[173]30)
145 I7[178]K1[171](I6[172]30)
146 K5[178]K5[171]I5
147 K6[178]K6[171]I6
148 K7[178]K7[171]I7
149 [139] K7[177][178]0 [167] 152
150 [136] K7[178]K7[170]30
151 [136] K6[178]K6[171]1
152 [139] K6[177]0 [167] 155
153 [136] K6[178]K6[170]12
154 [136] K5[178]K5[171]1
155 [153]I5;"YEARS";I6;"MONTHS";I7;"DAYS"
156 [142]
157 [139] K6[178]12 [167] 159
158 [137] 119
159 [136] K5[178]K5[170]1
160 [136] K6[178]0
161 [137] 119
162 [128]
163 [143] ****** HEADING ******
164 T1$[178]"
165 REM ***** TITLE PAGE *****
166 POKE 53281,1 : POKE 53280,6
167 PRINT"[147]";
168 T1$="DAYS OF"
169 T2$="   OUR LIVES"
170 FOR I=1TO38: PRINT"[166][146]";:NEXT
171 FOR I=1TO22: PRINT"[157][166][146]";:NEXT
172 FOR I=1TO37: PRINT"[157][157][166][146]";:NEXT
173 FOR I=1TO22: PRINT"[145][157][166][146]";:NEXT
174 PRINT"";T1$
175 PRINT"";T2$
176 PRINT"";T3$
177 FOR X = 1 TO 2500 : NEXT X
178 X=0 : RETURN
179 PRINT"[147]":PRINT"OPTIONS[146]"
180 PRINT"1) START"
181 PRINT"2) INSTRUCTIONS"
182 PRINT"3) END"
183 PRINT:PRINT:PRINT:PRINT:PRINTTAB(9);"PLEASE SELECT A NUMBER[146]"
184 GET X$ : IF X$="" THEN 184
185 IF X$="1" THEN PRINT"[147]PLEASE WAIT":FORX=1TO1000:NEXTX : GOTO 8
186 IF X$="2" THEN GOTO 190
187 IF X$="3" THEN GOTO 188
188 PRINT"[147]"
189 END
190 REM *******INSTRUCTIONS********
191 PRINT"[147]":PRINT :PRINT
192 PRINT"*************INSTRUCTIONS***************"
193 PRINT:PRINT
194 PRINT"   DAYS OF OUR LIVES IS A DEMONSTRATION THAT GIVES FACTS ABOUT A ";
195 PRINT"DATE OF INTER- EST TO YOU.  "
196 PRINT
197 PRINT"ENTER TODAY'S DATE THEN ENTER A DAY THAT YOU WOULD";
198 PRINT" LIKE INFORMATION ON."
199 PRINT:PRINT"NOTE: THIS PROGRAM WILL NOT WORK WITH ";
200 PRINT"        ANY YEAR BEFORE 1582"
201 PRINT""
202 PRINT"         HIT A KEY TO CONTINUE[146]"
203 GET A$ : IF A$="" THEN 203
204 GOTO 7
205 END